10 ! RXB EXAMPLE            CALL GMOTION/MOTION
100 A(0)=-1 :: A(1)=1 :: CALL CLEAR :: CALL MAGNIFY(2) :: CALL SCREEN(15)
110 FOR S=1 TO 28
120 CALL SPRITE(#S,64+S,INT(RND*16)+1,20+S,50+S,INT(A(RND*1))*INT(RND*32),INT(A(RND*1))*INT(RND*32))
130 NEXT S
140 S=INT(RND*28)+1 :: CALL GMOTION(#S,X,Y) :: CALL MOTION(#S,Y,X)
150 Z=Z+1 :: IF Z<300 THEN 140
160 ! GMOTION gets motion   from one sprite and puts     into another sprite
